<% set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons5.dat") strconnect = f.Readline set conn=Server.CreateObject("ADODB.Connection") conn.Open strconnect SQL = "SELECT num,question,answer1,answer2,answer3,answer4,answer5,answer6,answer7,answer8,answer9,answer10 FROM poll_2011 where num = " & request("num") Set Grs = conn.Execute(SQL) keynum = Grs("num") %>

<%=Grs("question")%>

<% includ_file = "/news/html/main/poll_top" & keynum & ".htm" Server.Execute(includ_file) %>

투표하기

" class="thum1"> <%=Grs("answer1")%>
" class="thum1"> <%=Grs("answer2")%>

*여러분의 생각을 말해주세요.

<% idd = "sc+poll" & Grs("num") question = Grs("question") question = Replace(question, "'", "") question = Replace(question, Chr(34), "") NEWSTITLE = "[핫이슈폴] " & question %>